home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 16 / 016.d81 / file translator (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  391b  |  13 lines
  1. 60100 rem file translator
  2. 60200 rem translates a seq file into a program file
  3. 60250 print"[147]":print:print
  4. 60300 input "filename";n$:open1,8,8,"0:"+n$
  5. 60500 get#1,c$:c$=chr$(asc(c$+chr$(0))and127):ifasc(c$)<>13then60500
  6. 60600 poke152,1:print"[147]";
  7. 60650 get#1,c$:                               c$=chr$(asc(c$+chr$(0))and127)
  8. 60651 ifc$=chr$(10)then60900
  9. 60700 printc$;:ifc$=chr$(13)then61000
  10. 60750 ifst=0then60650
  11. 60900 close1:print"finished":end
  12. 61000 ifst=0thenfori=631to633:pokei,13:next:poke198,3:print"goto60600";
  13.